; Music of Logistic (1993) (Fraggle of MOPS)
; Ripped by Megachur the 21/03/2009

	write "LOGISTIC.BIN"

music_date_rip	equ &1539
music_adr	equ &705b
first_theme	equ 0
last_theme	equ 1	; 0 -> 1

	read "music_header_v1_0.asm"

; ST-Module

	jr l705f
	jr l706e
.l705f
	call l708a
	ld hl,l74ad
	ld de,l7077
	ld bc,l81ff
	jp #bcd7
.l706e
	ld hl,l74ad
	call #bcdd
	jp l70f6
.l7077
	push ix
	call l7112
	pop ix
	ret
	jp l708a
	jp l7112
	jp l70f6
	ld h,(hl)
	inc b
.l708a
	ld b,#03
	ld ix,l7459
	ld iy,l7385
	ld de,#001c
.l7097
	push bc
	ld (ix+#06),#01
	ld (ix+#09),d
	ld (ix+#1b),d
	ld (ix+#05),#10
	ld l,(iy+#00)
	ld h,(iy+#01)
	ld a,(hl)
	ld (ix+#08),a
	inc hl
	ld c,(hl)
	inc hl
	ld b,(hl)
	inc hl
	ld (ix+#0c),l
	ld (ix+#0d),h
	ld (ix+#00),c
	ld (ix+#01),b
	add ix,de
	inc iy
	inc iy
	pop bc
	djnz l7097
	ld a,#05
	ld (l713a),a
	ld a,d
	ld (l714e),a
	inc a
	ld (l7135),a
	ld a,#38
	ld (l713f),a
	ld a,#ff
	ld (l7381),a
	ld (l7382),a
	ld (l7383),a
	ld (l7384),a
	ld a,#0c
	ld c,d
	call l7363
	ld a,#0d
	ld c,d
	jp l7363
;
.stop_music
.l70f6
;
	ld a,#07
	ld c,#3f
	call l7363
	ld a,#08
	ld c,#00
	call l7363
	ld a,#09
	ld c,#00
	call l7363
	ld a,#0a
	ld c,#00
	jp l7363
.l7112
	ld hl,l7135
	dec (hl)
	ld ix,l7459
	ld bc,l7467
	call l71c8
	ld ix,l7475
	ld bc,l7483
	call l71c8
	ld ix,l7491
	ld bc,l749f
	call l71c8
.l7135 equ $ + 1
	ld a,#00
	or a
	jr nz,l713e
.l713a equ $ + 1
	ld a,#00
	ld (l7135),a
.l713f equ $ + 1
.l713e
	ld a,#00
	ld hl,l7382
	cp (hl)
	jr z,l714d
	ld (hl),a
	ld c,a
	ld a,#07
	call l7363
.l714e equ $ + 1
.l714d
	ld a,#00
	ld hl,l7381
	cp (hl)
	jr z,l715c
	ld (hl),a
	ld c,a
	ld a,#06
	call l7363
.l715d equ $ + 1
.l715c
	ld a,#00
	ld hl,l7383
	cp (hl)
	jr z,l716b
	ld (hl),a
	ld c,a
	ld a,#0b
	call l7363
.l716c equ $ + 1
.l716b
	ld a,#00
	ld hl,l7384
	cp (hl)
	ret z
	ld (hl),a
	ld c,a
	ld a,#0d
	jp l7363
.l7179
	inc hl
	ld b,(hl)
	ld (ix+#06),b
	inc hl
	ld (ix+#00),l
	ld (ix+#01),h
	jp l7279
.l7188
	inc hl
	ld a,(hl)
	ld (ix+#06),a
	inc hl
	ld (ix+#00),l
	ld (ix+#01),h
	xor a
	ld (ix+#17),a
	ld (ix+#15),a
	ld c,a
	ld a,(ix+#04)
	jp l7363
.l71a2
	ld (ix+#0a),#00
	ld l,(ix+#0c)
	ld h,(ix+#0d)
	ld a,(hl)
	cp #80
	jr nz,l71b7
	inc hl
	ld e,(hl)
	inc hl
	ld d,(hl)
	ex de,hl
	ld a,(hl)
.l71b7
	inc hl
	ld e,(hl)
	inc hl
	ld d,(hl)
	inc hl
	ld (ix+#0c),l
	ld (ix+#0d),h
	ld (ix+#08),a
	ex de,hl
	jr l71db
.l71c8
	ld a,(l7135)
	or a
	jp nz,l7279
	dec (ix+#06)
	jp nz,l7279
	ld l,(ix+#00)
	ld h,(ix+#01)
.l71db
	ld a,(hl)
	or a
	jr z,l7179
	cp #fe
	jr z,l7188
	cp #ff
	jr z,l71a2
	ld d,#00
	and #7f
	sub #0a
	add (ix+#08)
	ld (ix+#07),a
	add a
	ld e,a
	push hl
	ld hl,l738b
	add hl,de
	ld a,(hl)
	ld (ix+#18),a
	inc hl
	ld a,(hl)
	ld (ix+#19),a
	pop hl
	ld a,#01
	bit 7,(hl)
	jr nz,l7217
	inc hl
	ld a,(hl)
	bit 7,a
	jr z,l7217
	and #7f
	ld (ix+#06),a
	jr l726a
.l7217
	ld (ix+#06),a
	inc hl
	push hl
	ld a,(hl)
	push af
	and #0f
	cp (ix+#05)
	jr z,l722b
	ld (ix+#05),a
	ld (ix+#0a),d
.l722b
	add a
	add a
	add a
	ld e,a
	ld hl,l74c1
	add hl,de
	ld d,b
	ld e,c
	ldi
	ldi
	ldi
	ldi
	ldi
	ldi
	ldi
	ldi
	pop af
	pop hl
	and #f0
	jr z,l726a
	cp #f0
	jp z,l731f
	cp #d0
	jp z,l733b
	cp #b0
	jp z,l7343
	cp #80
	jp nc,l734b
	cp #10
	jr nz,l726a
	xor a
	ld (ix+#1b),a
	ld (ix+#09),a
.l726a
	inc hl
	ld (ix+#00),l
	ld (ix+#01),h
	ld (ix+#16),#00
	ld (ix+#17),#20
.l7279
	ld a,(ix+#17)
	or a
	jr nz,l728d
	ld a,(ix+#15)
	or a
	ret z
	ld (ix+#17),a
	ld a,(ix+#14)
	ld (ix+#16),a
.l728d
	ld d,#00
	ld e,(ix+#16)
	inc (ix+#16)
	dec (ix+#17)
	ld a,(ix+#1b)
	or a
	jr z,l72b8
	ld h,a
	ld l,(ix+#1a)
	add hl,de
	ld a,(hl)
	ld b,(ix+#07)
	add b
	add a
	ld b,d
	ld c,a
	ld hl,l738b
	add hl,bc
	ld a,(hl)
	ld (ix+#18),a
	inc hl
	ld a,(hl)
	ld (ix+#19),a
.l72b8
	ld h,(ix+#0f)
	ld l,(ix+#0e)
	add hl,de
	add hl,de
	ld c,(hl)
	inc hl
	ld b,(hl)
	ld l,(ix+#18)
	ld h,(ix+#19)
	add hl,bc
	ld c,l
	ld a,(ix+#02)
	call l7363
	ld c,h
	ld a,(ix+#03)
	call l7363
	ld h,(ix+#11)
	ld l,(ix+#10)
	add hl,de
	ld a,(hl)
	bit 7,a
	jr nz,l72f6
	and #0f
	sub (ix+#0a)
	jr nc,l72ec
	xor a
.l72ec
	or (ix+#09)
	ld c,a
	ld a,(ix+#04)
	call l7363
.l72f6
	ld l,(ix+#12)
	ld h,(ix+#13)
	add hl,de
	ld a,(hl)
	bit 7,a
	ret nz
	and #1f
	ld b,(ix+#0b)
	ld c,a
	or a
	ld a,b
	jr z,l7313
	ld b,a
	ld a,c
	ld (l714e),a
	ld a,b
	sub #40
.l7313
	ld (l731a),a
	ld a,(l713f)
.l731a equ $ + 1
	bit 0,a
	ld (l713f),a
	ret
.l731f
	inc hl
	ld a,(hl)
	push hl
	add a
	ld b,#00
	ld c,a
	ld hl,l7541
	add hl,bc
	ld e,(hl)
	inc hl
	ld d,(hl)
	ld (ix+#1a),e
	ld (ix+#1b),d
	ld (ix+#09),#00
	pop hl
	jp l726a
.l733b
	inc hl
	ld a,(hl)
	ld (l713a),a
	jp l726a
.l7343
	inc hl
	ld a,(hl)
	ld (ix+#0a),a
	jp l726a
.l734b
	ld (ix+#09),#10
	ld (ix+#1b),#00
	ld a,(hl)
	rrca
	rrca
	rrca
	rrca
	ld (l716c),a
	inc hl
	ld a,(hl)
	ld (l715d),a
	jp l726a
.l7363
	ld b,#f4
	out (c),a
	ld b,#f6
	in a,(c)
	or #c0
	out (c),a
	and #3f
	out (c),a
	ld b,#f4
	out (c),c
	ld b,#f6
	ld c,a
	or #80
	out (c),a
	out (c),c
	ret
.l7385 equ $ + 4
.l7384 equ $ + 3
.l7383 equ $ + 2
.l7382 equ $ + 1
.l7381
	db #ff,#ff,#ff,#ff,#61,#78,#73,#78
	db #85,#78
.l738b
	dw #0eee,#0e18,#0d4d,#0c8e
	dw #0bda,#0b2f,#0a8f,#09f7
	dw #0968,#08e1,#0861,#07e9
	dw #0777,#070c,#06a7,#0647
	dw #05ed,#0598,#0547,#04fc
	dw #04b4,#0470,#0431,#03f4
	dw #03bc,#0386,#0353,#0324
	dw #02f6,#02cc,#02a4,#027e
	dw #025a,#0238,#0218,#01fa
	dw #01de,#01c3,#01aa,#0192
	dw #017b,#0166,#0152,#013f
	dw #012d,#011c,#010c,#00fd
	dw #00ef,#00e1,#00d5,#00c9
	dw #00be,#00b3,#00a9,#009f
	dw #0096,#008e,#0086,#007f
	dw #0077,#0071,#006a,#0064
	dw #005f,#0059,#0054,#0050
	dw #004b,#0047,#0043,#003f
	dw #003c,#0038,#0035,#0032
	dw #002f,#002d,#002a,#0028
	dw #0026,#0024,#0022,#0020
	dw #001e,#001c,#001b,#0019
	dw #0018,#0016,#0015,#0014
	dw #0013,#0012,#0011,#0010
	dw #000f
	db #00,#00,#00,#00,#00,#00,#00,#00
.l7459 equ $ + 4
	db #00,#00,#00,#00,#00,#00,#00,#01
	db #08,#00,#00,#00,#00,#00,#00,#df
.l7467 equ $ + 2
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l7475
	db #00,#00,#02,#03,#09,#00,#00,#00
.l7483 equ $ + 6
	db #00,#00,#00,#e7,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l7491 equ $ + 4
	db #00,#00,#00,#00,#00,#00,#04,#05
	db #0a,#00,#00,#00,#00,#00,#00,#ef
.l749f equ $ + 2
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
.l74ad
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00
	db #53,#54,#2d,#4d,#6f,#64,#75,#6c
	db #65
.l74c1 equ $ + 1
	db #2e,#61,#75,#a1,#75,#c1,#75,#0c
	db #00,#e1,#75,#21,#76,#41,#76,#00
	db #00,#61,#76,#a1,#76,#c1,#76,#00
	db #00,#e1,#76,#21,#77,#c1,#76,#10
	db #10,#61,#76,#41,#77,#61,#77,#00
	db #00,#61,#76,#81,#77,#c1,#76,#00
	db #00,#5b,#6f,#5b,#6f,#5b,#6f,#00
	db #00,#61,#76,#a1,#77,#c1,#76,#16
	db #08,#5b,#6f,#5b,#6f,#5b,#6f,#00
	db #00,#5b,#6f,#02,#67,#02,#67,#00
	db #00,#02,#67,#02,#67,#02,#67,#00
	db #00,#02,#67,#02,#67,#02,#67,#00
	db #00,#02,#67,#02,#67,#02,#67,#00
	db #00,#02,#67,#02,#67,#02,#67,#00
	db #00,#02,#67,#02,#67,#02,#67,#00
	db #00,#02,#67,#02,#67,#02,#67,#00
.l7541 equ $ + 1
	db #00,#c1,#77,#e1,#77,#01,#78,#21
	db #78,#41,#78,#02,#67,#02,#67,#02
	db #67,#02,#67,#02,#67,#02,#67,#02
	db #67,#02,#67,#02,#67,#02,#67,#02
	db #67,#00,#00,#32,#00,#64,#00,#91
	db #00,#be,#00,#eb,#00,#22,#01,#4a
	db #01,#7c,#01,#a9,#01,#d6,#01,#08
	db #02,#3a,#02,#6c,#02,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#0f,#0f,#0f,#0f,#0f,#0e,#0e
	db #0d,#0c,#0a,#06,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#0c,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#30,#00,#60,#00,#90
	db #00,#c0,#00,#f0,#00,#20,#01,#50
	db #01,#80,#01,#b0,#01,#e0,#01,#10
	db #02,#40,#02,#70,#02,#a0,#02,#d0
	db #02,#00,#03,#20,#03,#40,#03,#60
	db #03,#70,#03,#80,#03,#90,#03,#a0
	db #03,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#0f,#0f,#0e,#0e,#0d,#0d,#0c
	db #0c,#0b,#0b,#0a,#0a,#09,#09,#08
	db #08,#07,#07,#06,#06,#05,#05,#04
	db #04,#03,#03,#02,#02,#01,#00,#00
	db #00,#05,#00,#00,#01,#01,#01,#01
	db #01,#01,#01,#01,#01,#01,#01,#01
	db #01,#01,#01,#01,#01,#01,#01,#01
	db #01,#01,#01,#01,#01,#01,#01,#01
	db #01,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#0f,#0f,#0e,#0e,#0d,#0d,#0c
	db #0c,#0b,#0a,#0a,#09,#09,#08,#08
	db #07,#06,#05,#03,#01,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#01,#00,#01,#00,#01,#00,#01
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#01,#00,#01,#00,#01,#00,#01
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#01,#00,#01,#00,#01,#00,#01
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#01,#00,#01,#00,#01,#00,#01
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#0d,#80,#80,#80,#80,#80,#80
	db #80,#80,#80,#80,#80,#80,#80,#80
	db #80,#80,#80,#80,#80,#80,#80,#80
	db #80,#80,#80,#80,#80,#80,#80,#80
	db #80,#0f,#0b,#07,#03,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#01,#01,#01,#01,#01,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#0a,#0b,#0b,#0b,#0a,#09,#09
	db #08,#07,#07,#06,#06,#06,#05,#05
	db #05,#04,#04,#04,#03,#03,#03,#02
	db #02,#01,#01,#00,#00,#00,#00,#00
	db #00,#0e,#0d,#0c,#0b,#0a,#0b,#0c
	db #0b,#0a,#09,#08,#09,#0a,#09,#08
	db #07,#06,#07,#08,#07,#06,#05,#04
	db #05,#06,#05,#04,#03,#02,#03,#04
	db #03,#07,#00,#04,#07,#00,#04,#07
	db #00,#04,#07,#00,#04,#07,#00,#04
	db #07,#00,#04,#07,#00,#04,#07,#00
	db #04,#07,#00,#04,#07,#00,#04,#07
	db #00,#f9,#00,#05,#00,#05,#00,#05
	db #00,#05,#00,#05,#00,#05,#00,#05
	db #00,#05,#00,#05,#00,#05,#00,#05
	db #00,#05,#00,#05,#00,#05,#00,#05
	db #00,#fb,#00,#02,#07,#00,#02,#07
	db #00,#02,#07,#00,#02,#07,#00,#02
	db #07,#00,#02,#07,#00,#02,#07,#00
	db #02,#07,#00,#02,#07,#00,#02,#07
	db #00,#fc,#00,#03,#08,#00,#03,#08
	db #00,#03,#08,#00,#03,#08,#00,#03
	db #08,#00,#03,#08,#00,#03,#08,#00
	db #03,#08,#00,#03,#08,#00,#03,#08
	db #00,#0c,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#0c,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#0c,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#0c
	db #00,#00,#97,#78,#00,#97,#78,#00
	db #97,#78,#00,#97,#78,#00,#97,#78
	db #80,#61,#78,#00,#31,#79,#00,#c8
	db #79,#00,#c8,#79,#00,#3c,#79,#00
	db #3c,#79,#80,#73,#78,#00,#14,#7a
	db #00,#14,#7a,#00,#14,#7a,#00,#14
	db #7a,#00,#14,#7a,#80,#85,#78,#ae
	db #d0,#05,#a3,#c2,#1c,#97,#02,#af
	db #c2,#0e,#ba,#11,#a3,#c2,#1c,#97
	db #02,#af,#c2,#0e,#ae,#10,#a3,#c2
	db #1c,#97,#02,#af,#c2,#0e,#ba,#11
	db #a3,#c2,#1c,#97,#02,#af,#c2,#0e
	db #ae,#10,#a5,#c2,#19,#99,#02,#b1
	db #02,#ba,#11,#a5,#c2,#19,#99,#02
	db #b1,#02,#ae,#10,#a5,#c2,#19,#99
	db #02,#b1,#02,#ba,#11,#a5,#c2,#19
	db #99,#02,#b1,#02,#ae,#10,#a6,#c2
	db #18,#9a,#02,#b2,#c2,#0c,#ba,#11
	db #a6,#c2,#18,#9a,#02,#b2,#c2,#0c
	db #ae,#10,#a6,#c2,#18,#9a,#02,#b2
	db #c2,#0c,#ba,#11,#a6,#c2,#18,#9a
	db #02,#b2,#c2,#0c,#ae,#10,#a5,#c2
	db #19,#99,#02,#b1,#02,#ba,#11,#a5
	db #c2,#19,#99,#02,#b1,#02,#ae,#10
	db #a5,#c2,#19,#99,#02,#b1,#02,#ba
	db #11,#a5,#c2,#19,#99,#02,#ba,#11
	db #ff,#3b,#10,#13,#3d,#10,#03,#3e
	db #90,#3d,#90,#ff,#42,#02,#f7,#03
	db #42,#02,#f7,#02,#42,#02,#f7,#01
	db #c2,#f7,#03,#42,#02,#f7,#02,#42
	db #02,#f7,#03,#c2,#f7,#01,#42,#02
	db #f7,#02,#c2,#f7,#03,#c2,#f7,#02
	db #42,#02,#f7,#03,#42,#02,#f7,#02
	db #42,#02,#f7,#01,#c2,#f7,#03,#42
	db #02,#f7,#02,#42,#02,#f7,#03,#c2
	db #f7,#01,#42,#02,#f7,#02,#c2,#f7
	db #03,#c2,#f7,#02,#42,#02,#f7,#03
	db #42,#02,#f7,#02,#42,#02,#f7,#01
	db #c2,#f7,#03,#42,#02,#f7,#02,#42
	db #02,#f7,#03,#c2,#f7,#01,#42,#02
	db #f7,#02,#c2,#f7,#03,#c2,#f7,#01
	db #42,#02,#f7,#02,#42,#02,#07,#42
	db #82,#42,#02,#f7,#03,#42,#02,#f7
	db #02,#42,#02,#f7,#01,#42,#02,#f7
	db #02,#c2,#f7,#03,#c2,#f7,#02,#ff
	db #be,#f3,#04,#b6,#03,#bd,#03,#b6
	db #03,#bb,#03,#fe,#01,#3b,#8a,#be
	db #03,#b6,#03,#bd,#03,#b6,#03,#bb
	db #03,#fe,#01,#3d,#8a,#be,#03,#b6
	db #03,#bd,#03,#b6,#03,#bb,#03,#fe
	db #01,#3e,#8a,#be,#03,#b6,#03,#bd
	db #03,#b6,#03,#bd,#03,#fe,#01,#bd
	db #03,#b6,#03,#bd,#03,#fe,#01,#bd
	db #03,#b6,#03,#bd,#03,#b6,#03,#bd
	db #03,#b6,#03,#ff,#a3,#c2,#1c,#ec
	db #14,#c7,#04,#ec,#04,#c7,#f5,#00
	db #ec,#14,#c7,#04,#ec,#04,#a3,#c2
	db #1c,#ec,#14,#c7,#04,#ec,#04,#c7
	db #f5,#00,#ec,#14,#c7,#04,#ec,#04
	db #a5,#c2,#19,#ec,#14,#c9,#04,#ec
	db #04,#c9,#f5,#00,#ec,#14,#c9,#04
	db #ec,#04,#a5,#c2,#19,#ec,#14,#c9
	db #04,#ec,#04,#c9,#f5,#00,#ec,#14
	db #c9,#04,#ec,#04,#a6,#c2,#18,#ec
	db #14,#ca,#04,#ec,#04,#ca,#f5,#00
	db #ec,#14,#ca,#04,#ec,#04,#a6,#c2
	db #18,#ec,#14,#ca,#04,#ec,#04,#ca
	db #f5,#00,#ec,#14,#ca,#04,#ec,#04
	db #a5,#c2,#19,#ec,#14,#c9,#04,#ec
	db #04,#c9,#f5,#00,#ec,#14,#c9,#04
	db #ec,#04,#a5,#c2,#19,#ec,#14,#c9
	db #04,#ec,#04,#c9,#f5,#00,#ec,#14
	db #c9,#04,#a5,#c2,#19,#ff,#00

	jr l7aab
	jr l7aba
.l7aab
	call l7ad6
	ld hl,l7ef9
	ld de,l7ac3
	ld bc,l81ff
	jp #bcd7
.l7aba
	ld hl,l7ef9
	call #bcdd
	jp l7b42
.l7ac3
	push ix
	call l7b5e
	pop ix
	ret
	jp l7ad6
	jp l7b5e
	jp l7b42
	ld h,(hl)
	inc b
.l7ad6
	ld b,#03
	ld ix,l7ea5
	ld iy,l7dd1
	ld de,#001c
.l7ae3
	push bc
	ld (ix+#06),#01
	ld (ix+#09),d
	ld (ix+#1b),d
	ld (ix+#05),#10
	ld l,(iy+#00)
	ld h,(iy+#01)
	ld a,(hl)
	ld (ix+#08),a
	inc hl
	ld c,(hl)
	inc hl
	ld b,(hl)
	inc hl
	ld (ix+#0c),l
	ld (ix+#0d),h
	ld (ix+#00),c
	ld (ix+#01),b
	add ix,de
	inc iy
	inc iy
	pop bc
	djnz l7ae3
	ld a,#06
	ld (l7b86),a
	ld a,d
	ld (l7b9a),a
	inc a
	ld (l7b81),a
	ld a,#38
	ld (l7b8b),a
	ld a,#ff
	ld (l7dcd),a
	ld (l7dce),a
	ld (l7dcf),a
	ld (l7dd0),a
	ld a,#0c
	ld c,d
	call l7daf
	ld a,#0d
	ld c,d
	jp l7daf
.l7b42
	ld a,#07
	ld c,#3f
	call l7daf
	ld a,#08
	ld c,#00
	call l7daf
	ld a,#09
	ld c,#00
	call l7daf
	ld a,#0a
	ld c,#00
	jp l7daf
.l7b5e
	ld hl,l7b81
	dec (hl)
	ld ix,l7ea5
	ld bc,l7eb3
	call l7c14
	ld ix,l7ec1
	ld bc,l7ecf
	call l7c14
	ld ix,l7edd
	ld bc,l7eeb
	call l7c14
.l7b81 equ $ + 1
	ld a,#04
	or a
	jr nz,l7b8a
.l7b86 equ $ + 1
	ld a,#06
	ld (l7b81),a
.l7b8b equ $ + 1
.l7b8a
	ld a,#38
	ld hl,l7dce
	cp (hl)
	jr z,l7b99
	ld (hl),a
	ld c,a
	ld a,#07
	call l7daf
.l7b9a equ $ + 1
.l7b99
	ld a,#0c
	ld hl,l7dcd
	cp (hl)
	jr z,l7ba8
	ld (hl),a
	ld c,a
	ld a,#06
	call l7daf
.l7ba9 equ $ + 1
.l7ba8
	ld a,#19
	ld hl,l7dcf
	cp (hl)
	jr z,l7bb7
	ld (hl),a
	ld c,a
	ld a,#0b
	call l7daf
.l7bb8 equ $ + 1
.l7bb7
	ld a,#7c
	ld hl,l7dd0
	cp (hl)
	ret z
	ld (hl),a
	ld c,a
	ld a,#0d
	jp l7daf
.l7bc5
	inc hl
	ld b,(hl)
	ld (ix+#06),b
	inc hl
	ld (ix+#00),l
	ld (ix+#01),h
	jp l7cc5
.l7bd4
	inc hl
	ld a,(hl)
	ld (ix+#06),a
	inc hl
	ld (ix+#00),l
	ld (ix+#01),h
	xor a
	ld (ix+#17),a
	ld (ix+#15),a
	ld c,a
	ld a,(ix+#04)
	jp l7daf
.l7bee
	ld (ix+#0a),#00
	ld l,(ix+#0c)
	ld h,(ix+#0d)
	ld a,(hl)
	cp #80
	jr nz,l7c03
	inc hl
	ld e,(hl)
	inc hl
	ld d,(hl)
	ex de,hl
	ld a,(hl)
.l7c03
	inc hl
	ld e,(hl)
	inc hl
	ld d,(hl)
	inc hl
	ld (ix+#0c),l
	ld (ix+#0d),h
	ld (ix+#08),a
	ex de,hl
	jr l7c27
.l7c14
	ld a,(l7b81)
	or a
	jp nz,l7cc5
	dec (ix+#06)
	jp nz,l7cc5
	ld l,(ix+#00)
	ld h,(ix+#01)
.l7c27
	ld a,(hl)
	or a
	jr z,l7bc5
	cp #fe
	jr z,l7bd4
	cp #ff
	jr z,l7bee
	ld d,#00
	and #7f
	sub #0a
	add (ix+#08)
	ld (ix+#07),a
	add a
	ld e,a
	push hl
	ld hl,l7dd7
	add hl,de
	ld a,(hl)
	ld (ix+#18),a
	inc hl
	ld a,(hl)
	ld (ix+#19),a
	pop hl
	ld a,#01
	bit 7,(hl)
	jr nz,l7c63
	inc hl
	ld a,(hl)
	bit 7,a
	jr z,l7c63
	and #7f
	ld (ix+#06),a
	jr l7cb6
.l7c63
	ld (ix+#06),a
	inc hl
	push hl
	ld a,(hl)
	push af
	and #0f
	cp (ix+#05)
	jr z,l7c77
	ld (ix+#05),a
	ld (ix+#0a),d
.l7c77
	add a
	add a
	add a
	ld e,a
	ld hl,l7f0d
	add hl,de
	ld d,b
	ld e,c
	ldi
	ldi
	ldi
	ldi
	ldi
	ldi
	ldi
	ldi
	pop af
	pop hl
	and #f0
	jr z,l7cb6
	cp #f0
	jp z,l7d6b
	cp #d0
	jp z,l7d87
	cp #b0
	jp z,l7d8f
	cp #80
	jp nc,l7d97
	cp #10
	jr nz,l7cb6
	xor a
	ld (ix+#1b),a
	ld (ix+#09),a
.l7cb6
	inc hl
	ld (ix+#00),l
	ld (ix+#01),h
	ld (ix+#16),#00
	ld (ix+#17),#20
.l7cc5
	ld a,(ix+#17)
	or a
	jr nz,l7cd9
	ld a,(ix+#15)
	or a
	ret z
	ld (ix+#17),a
	ld a,(ix+#14)
	ld (ix+#16),a
.l7cd9
	ld d,#00
	ld e,(ix+#16)
	inc (ix+#16)
	dec (ix+#17)
	ld a,(ix+#1b)
	or a
	jr z,l7d04
	ld h,a
	ld l,(ix+#1a)
	add hl,de
	ld a,(hl)
	ld b,(ix+#07)
	add b
	add a
	ld b,d
	ld c,a
	ld hl,l7dd7
	add hl,bc
	ld a,(hl)
	ld (ix+#18),a
	inc hl
	ld a,(hl)
	ld (ix+#19),a
.l7d04
	ld h,(ix+#0f)
	ld l,(ix+#0e)
	add hl,de
	add hl,de
	ld c,(hl)
	inc hl
	ld b,(hl)
	ld l,(ix+#18)
	ld h,(ix+#19)
	add hl,bc
	ld c,l
	ld a,(ix+#02)
	call l7daf
	ld c,h
	ld a,(ix+#03)
	call l7daf
	ld h,(ix+#11)
	ld l,(ix+#10)
	add hl,de
	ld a,(hl)
	bit 7,a
	jr nz,l7d42
	and #0f
	sub (ix+#0a)
	jr nc,l7d38
	xor a
.l7d38
	or (ix+#09)
	ld c,a
	ld a,(ix+#04)
	call l7daf
.l7d42
	ld l,(ix+#12)
	ld h,(ix+#13)
	add hl,de
	ld a,(hl)
	bit 7,a
	ret nz
	and #1f
	ld b,(ix+#0b)
	ld c,a
	or a
	ld a,b
	jr z,l7d5f
	ld b,a
	ld a,c
	ld (l7b9a),a
	ld a,b
	sub #40
.l7d5f
	ld (l7d66),a
	ld a,(l7b8b)
.l7d66 equ $ + 1
	set 5,a
	ld (l7b8b),a
	ret
.l7d6b
	inc hl
	ld a,(hl)
	push hl
	add a
	ld b,#00
	ld c,a
	ld hl,l7f8d
	add hl,bc
	ld e,(hl)
	inc hl
	ld d,(hl)
	ld (ix+#1a),e
	ld (ix+#1b),d
	ld (ix+#09),#00
	pop hl
	jp l7cb6
.l7d87
	inc hl
	ld a,(hl)
	ld (l7b86),a
	jp l7cb6
.l7d8f
	inc hl
	ld a,(hl)
	ld (ix+#0a),a
	jp l7cb6
.l7d97
	ld (ix+#09),#10
	ld (ix+#1b),#00
	ld a,(hl)
	rrca
	rrca
	rrca
	rrca
	ld (l7bb8),a
	inc hl
	ld a,(hl)
	ld (l7ba9),a
	jp l7cb6
.l7daf
	ld b,#f4
	out (c),a
	ld b,#f6
	in a,(c)
	or #c0
	out (c),a
	and #3f
	out (c),a
	ld b,#f4
	out (c),c
	ld b,#f6
	ld c,a
	or #80
	out (c),a
	out (c),c
	ret
.l7dd1 equ $ + 4
.l7dd0 equ $ + 3
.l7dcf equ $ + 2
.l7dce equ $ + 1
.l7dcd
	db #0c,#38,#19,#7c,#4d,#82,#62,#82
	db #77,#82
.l7dd7
	dw #0eee,#0e18,#0d4d,#0c8e
	dw #0bda,#0b2f,#0a8f,#09f7
	dw #0968,#08e1,#0861,#07e9
	dw #0777,#070c,#06a7,#0647
	dw #05ed,#0598,#0547,#04fc
	dw #04b4,#0470,#0431,#03f4
	dw #03bc,#0386,#0353,#0324
	dw #02f6,#02cc,#02a4,#027e
	dw #025a,#0238,#0218,#01fa
	dw #01de,#01c3,#01aa,#0192
	dw #017b,#0166,#0152,#013f
	dw #012d,#011c,#010c,#00fd
	dw #00ef,#00e1,#00d5,#00c9
	dw #00be,#00b3,#00a9,#009f
	dw #0096,#008e,#0086,#007f
	dw #0077,#0071,#006a,#0064
	dw #005f,#0059,#0054,#0050
	dw #004b,#0047,#0043,#003f
	dw #003c,#0038,#0035,#0032
	dw #002f,#002d,#002a,#0028
	dw #0026,#0024,#0022,#0020
	dw #001e,#001c,#001b,#0019
	dw #0018,#0016,#0015,#0014
	dw #0013,#0012,#0011,#0010
	dw #000f
	db #00,#00,#00,#00,#00,#00,#00,#00
.l7ea5 equ $ + 4
	db #00,#00,#00,#00,#94,#82,#00,#01
	db #08,#07,#01,#1b,#00,#10,#00,#df
.l7eb3 equ $ + 2
	db #5c,#82,#2d,#80,#2d,#81,#4d,#81
	db #18,#07,#09,#17,#24,#03,#00,#00
.l7ec1
	db #ba,#82,#02,#03,#09,#08,#03,#35
.l7ecf equ $ + 6
	db #00,#00,#00,#e7,#71,#82,#6d,#81
	db #ad,#81,#4d,#81,#18,#07,#1e,#01
.l7edd equ $ + 4
	db #6a,#00,#0d,#82,#12,#83,#04,#05
	db #0a,#01,#01,#24,#00,#00,#00,#ef
.l7eeb equ $ + 2
	db #86,#82,#ad,#7f,#ed,#7f,#0d,#80
	db #0c,#00,#09,#17,#de,#01,#00,#00
.l7ef9
	db #fe,#b1,#00,#b2,#00,#81,#c3,#7a
	db #ff,#00,#53,#54,#2d,#4d,#6f,#64
.l7f0d equ $ + 4
	db #75,#6c,#65,#2e,#a7,#79,#a7,#79
	db #a7,#79,#00,#00,#ad,#7f,#ed,#7f
	db #0d,#80,#0c,#00,#2d,#80,#6d,#80
	db #8d,#80,#10,#10,#a7,#79,#a7,#79
	db #a7,#79,#00,#00,#a7,#79,#a7,#79
	db #a7,#79,#00,#00,#a7,#79,#a7,#79
	db #a7,#79,#00,#00,#ad,#80,#ed,#80
	db #0d,#81,#00,#00,#2d,#80,#2d,#81
	db #4d,#81,#18,#07,#6d,#81,#ad,#81
	db #4d,#81,#18,#07,#a7,#79,#a7,#b8
	db #a7,#b8,#00,#00,#a7,#b8,#a7,#b8
	db #a7,#b8,#00,#00,#a7,#b8,#a7,#b8
	db #a7,#b8,#00,#00,#a7,#b8,#a7,#b8
	db #a7,#b8,#00,#00,#a7,#b8,#a7,#b8
	db #a7,#b8,#00,#00,#a7,#b8,#a7,#b8
	db #a7,#b8,#00,#00,#a7,#b8,#a7,#b8
.l7f8d equ $ + 4
	db #a7,#b8,#00,#00,#a7,#b8,#cd,#81
	db #ed,#81,#0d,#82,#2d,#82,#a7,#b8
	db #a7,#b8,#a7,#b8,#a7,#b8,#a7,#b8
	db #a7,#b8,#a7,#b8,#a7,#b8,#a7,#b8
	db #a7,#b8,#a7,#b8,#00,#00,#32,#00
	db #64,#00,#91,#00,#be,#00,#eb,#00
	db #22,#01,#4a,#01,#7c,#01,#a9,#01
	db #d6,#01,#08,#02,#3a,#02,#6c,#02
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#0f,#0f,#0f,#0f
	db #0f,#0e,#0e,#0d,#0c,#0a,#06,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#0c,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#0d,#0b,#0a,#09
	db #80,#80,#80,#80,#80,#80,#80,#80
	db #80,#80,#80,#80,#80,#80,#80,#80
	db #80,#80,#80,#80,#80,#80,#80,#80
	db #80,#80,#80,#80,#04,#04,#04,#02
	db #03,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#38,#00,#60,#00
	db #b0,#00,#18,#01,#48,#01,#80,#01
	db #c8,#01,#10,#02,#58,#02,#b0,#02
	db #00,#00,#00,#80,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#0f,#0e,#0e,#0d
	db #0c,#0b,#09,#07,#06,#03,#01,#00
	db #80,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#06,#06,#06,#05
	db #04,#04,#03,#02,#01,#00,#80,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#0e,#0e,#0e,#0e
	db #0e,#0d,#0d,#0d,#0c,#0c,#0c,#0b
	db #0b,#0b,#0a,#0a,#0a,#09,#09,#09
	db #08,#08,#08,#07,#07,#07,#06,#06
	db #06,#05,#05,#05,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#01,#00
	db #02,#00,#01,#00,#00,#00,#ff,#ff
	db #fe,#ff,#ff,#ff,#00,#00,#01,#00
	db #02,#00,#01,#00,#00,#00,#ff,#ff
	db #fe,#ff,#ff,#ff,#00,#00,#01,#00
	db #02,#00,#01,#00,#00,#00,#ff,#ff
	db #fe,#ff,#ff,#ff,#00,#00,#01,#00
	db #02,#00,#01,#00,#0e,#0e,#0e,#0d
	db #0d,#0d,#0c,#0c,#0b,#0a,#09,#07
	db #05,#07,#09,#0b,#0b,#0b,#0b,#0b
	db #0b,#0a,#0a,#0a,#09,#09,#09,#09
	db #09,#09,#09,#09,#00,#03,#07,#00
	db #03,#07,#00,#03,#07,#00,#03,#07
	db #00,#03,#07,#00,#03,#07,#00,#03
	db #07,#00,#03,#07,#00,#03,#07,#00
	db #03,#07,#00,#03,#00,#05,#0a,#00
	db #05,#0a,#00,#05,#0a,#00,#05,#0a
.l81ff equ $ + 6
	db #00,#05,#0a,#00,#05,#0a,#00,#05
	db #0a,#00,#05,#0a,#00,#05,#0a,#00
	db #05,#0a,#00,#05,#00,#05,#09,#00
	db #05,#09,#00,#05,#09,#00,#05,#09
	db #00,#05,#09,#00,#05,#09,#00,#05
	db #09,#00,#05,#09,#00,#05,#09,#00
	db #05,#09,#00,#05,#00,#03,#08,#00
	db #03,#08,#00,#03,#08,#00,#03,#08
	db #00,#03,#08,#00,#03,#08,#00,#03
	db #08,#00,#03,#08,#00,#03,#08,#00
	db #03,#08,#00,#03,#00,#8c,#82,#00
	db #9d,#82,#00,#8c,#82,#00,#8c,#82
	db #00,#8c,#82,#00,#8c,#82,#80,#4d
	db #82,#00,#ae,#82,#00,#c3,#82,#00
	db #ae,#82,#00,#ae,#82,#00,#ae,#82
	db #00,#ae,#82,#80,#62,#82,#00,#d8
	db #82,#00,#db,#82,#00,#e7,#82,#00
	db #e7,#82,#00,#e7,#82,#00,#e7,#82
	db #80,#77,#82,#22,#1c,#c7,#1e,#25
	db #02,#c7,#19,#27,#02,#c7,#16,#22
	db #20,#c7,#1e,#ff,#22,#1c,#c7,#1e
	db #25,#02,#c7,#19,#27,#02,#c7,#16
	db #22,#20,#c7,#1e,#ff,#46,#10,#f8
	db #01,#3f,#06,#f8,#02,#3f,#0a,#f8
	db #03,#3a,#06,#f8,#04,#3a,#1a,#f8
	db #01,#ff,#46,#10,#f8,#01,#3f,#06
	db #f8,#02,#3f,#0a,#f8,#03,#3a,#06
	db #f8,#04,#3a,#1a,#f8,#01,#ff,#00
	db #40,#ff,#00,#36,#37,#02,#01,#33
	db #83,#32,#83,#30,#82,#ff,#2e,#02
	db #01,#6c,#02,#02,#3a,#02,#06,#2e
	db #02,#01,#2e,#82,#6c,#02,#02,#2e
	db #02,#01,#6c,#02,#02,#2e,#02,#01
	db #6c,#02,#02,#3a,#02,#06,#2e,#02
	db #01,#2e,#82,#6c,#02,#02,#2e,#02
	db #01,#6c,#02,#02,#2e,#02,#01,#6c
	db #02,#02,#3a,#02,#06,#2e,#02,#01
	db #2e,#82,#6c,#02,#02,#2e,#02,#01
	db #6c,#02,#02,#2e,#02,#01,#6c,#02
	db #02,#3a,#02,#06,#2e,#02,#01,#2e
	db #82,#6c,#02,#02,#2e,#02,#01,#6c
	db #02,#02,#ff,#00,#00,#00,#15,#3f
	db #3f,#00,#00,#00,#00,#3e,#3c,#3c
	db #2a,#00,#00,#15,#3c,#3c,#3c,#3d
	db #00,#00,#15,#3c,#3c,#3c,#3d,#00
	db #00,#3e,#3c,#3c,#3c,#3c,#2a,#00
	db #3e,#3c,#3c,#3c,#3c,#2a,#00,#3e
	db #68,#3c,#3c,#3c,#2a,#15,#3c,#68
	db #bc,#3c,#3c,#3d,#15,#3c,#68,#bc
	db #94,#3c,#3d,#15,#3c,#68,#bc,#d4
	db #3c,#3d,#15,#3c,#68,#bc,#d4,#3c
	db #3d,#15,#3c,#68,#c0,#c0,#3c,#3d
	db #15,#3c,#68,#c0,#c0,#bc,#3d,#15
	db #3c,#3c,#fc,#d4,#bc,#3d,#15,#3c
	db #3c,#3c,#d4,#3c,#3d,#15,#3c,#3c
	db #3c,#d4,#3c,#3d,#00,#3e,#3c,#3c
	db #d4,#3c,#2a,#00,#3e,#3c,#3c,#7c
	db #3c,#2a,#00,#3e,#3c,#3c,#3c,#3c
	db #2a,#00,#15,#3c,#3c,#3c,#3d,#00
	db #00,#15,#3c,#3c,#3c,#3d,#00,#00
	db #00,#3f,#3c,#3c,#2a,#00,#00,#00
	db #15,#3f,#3f,#00,#00,#00,#00,#15
	db #3f,#3f,#00,#00,#00,#00,#6b,#c3
	db #c3,#2a,#00,#00,#15,#6b,#c3,#c3
	db #97,#00,#00,#15,#c3,#c3,#c3,#97
	db #00,#00,#6b,#c3,#c3,#c3,#c3,#2a
	db #00,#6b,#c3,#c3,#c3,#c3,#2a,#00
	db #6b,#c2,#c3,#c3,#c3,#2a,#15,#c3
	db #c2,#43,#c3,#c3,#97,#15,#c3,#c2
	db #43,#c1,#c3,#97,#15,#c3,#c2,#43
	db #81,#c3,#97,#15,#c3,#c2,#43,#81
	db #c3,#97,#15,#c3,#c2,#c0,#c0,#c3
	db #97,#15,#c3,#c2,#c0,#c0,#43,#97
	db #15,#c3,#c3,#03,#81,#43,#97,#15
	db #c3,#c3,#c3,#81,#c3,#97,#15,#c3
	db #c3,#c3,#81,#c3,#97,#00,#6b,#c3
	db #c3,#81,#c3,#2a,#00,#6b,#c3,#c3
	db #83,#c3,#2a,#00,#6b,#c3,#c3,#c3
	db #c3,#2a,#00,#15,#c3,#c3,#c3,#97
	db #00,#00,#15,#c3,#c3,#c3,#97,#00
	db #00,#00,#6b,#c3,#c3,#2a,#00,#00
	db #00,#15,#3f,#3f,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#00,#00,#00,#00,#00,#00,#00
	db #00,#55,#ff,#ff,#00,#00,#00,#00
	db #fe,#3c,#7c,#aa,#00,#00,#00,#be
	db #3c,#3c,#aa,#00,#00,#00,#be,#68
	db #3c,#aa,#00,#00,#00,#be,#68,#bc
	db #aa,#00,#00,#00,#be,#68,#bc,#aa
	db #00,#00,#00,#be,#3c,#bc,#aa,#00
	db #00,#00,#fe,#3c,#7c,#aa,#00,#00
	db #00,#55,#ff,#ff
;
.init_music
;
	ld (choose_music_play),a
	or a
	jp z,l708a
	jp l7ad6
;
.play_music
;
choose_music_play equ $+1
	ld a,0
	or a
	jp z,l7112
	jp l7b5e
; 
; 2 musics !

; init l705f, l7aab

;
.game_name
	db "Logistic",0
.game_year
	db "1993",0
.game_publisher
	db "Fraggle of MOPS",0
.music_author
	db "",0
.music_comment
	db "ST-Module - 2 musics merged by Megachur",0

	read "music_end_v1_0.asm"
